<!--#include file="lib/utf-8.asp"-->
<!--#include file="lib/conn.asp"-->
<%
Dim i,Rs,Sql,Table,Column,Bool,cmd,dt
Table = "cl"
Column = "cl_usergeo"
dt="nvarchar(50)"
	set cmd=server.CreateObject ("adodb.command")
	set cmd.ActiveConnection =conn
	'sql="alert table 表名 add 列名 数据类型 "
	'sql="alter table "&Table&" drop column "&Column
	'cmd.CommandText =sql
	'cmd.Execute

	sql="alter table "&Table&" add column "&Column&" "&dt
	response.write sql
	'response.end
	cmd.CommandText =sql
	cmd.Execute
%>